home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / LOGLAB.for < prev    next >
Text File  |  1991-04-13  |  551b  |  20 lines
  1.         SUBROUTINE LOGLAB(NUM,STRNG)
  2.         IMPLICIT NONE
  3.         INTEGER NUM
  4.         CHARACTER*1 STRNG(14), LLABS(6,8)
  5.         DATA LLABS / '.','0','0','1',2*0,
  6.      1   '.','0','1',3*0,
  7.      2   '.','1',4*0,
  8.      3   '1',5*0,
  9.      4   '1','0',4*0,
  10.      5   '1','0','0',3*0,
  11.      6   '1','0','0','0',2*0,
  12.      7   '1','0','0','0','0',0/
  13.         IF (NUM .GT. -4 .AND. NUM .LT. 5) GO TO 100
  14.         CALL SCOPY('1E'//CHAR(0),STRNG)
  15.         CALL NUMSTR(NUM,STRNG(3))
  16.         GO TO 200
  17. 100     CALL SCOPY(LLABS(1,4+NUM),STRNG)
  18. 200     RETURN
  19.         END
  20.